home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1996 September / inter@ivo 1996-09.iso / cybint8 / bin / gforum.dxr / 00070_MOVIE.ls < prev    next >
Encoding:
Text File  |  1996-08-02  |  927 b   |  50 lines
  1. on startMovie
  2.   openDirutil()
  3.   if xfactoryList("Fileio") = EMPTY then
  4.     openXLib("FileIO")
  5.   end if
  6. end
  7.  
  8. on stopMovie
  9.   if xfactoryList("Fileio") <> EMPTY then
  10.     closeXLib("FileIO")
  11.   end if
  12.   closeDirUtil()
  13. end
  14.  
  15. on openDirutil
  16.   global x
  17.   openXLib("DirUtil")
  18.   set x to DirUtil(mnew)
  19. end
  20.  
  21. on closeDirUtil
  22.   global x
  23.   x(mdispose)
  24.   closeXLib("DirUtil")
  25. end
  26.  
  27. on callwww site
  28.   global x, aFilename
  29.   put aFilename
  30.   if voidp(aFilename) then
  31.     alert("Por favor, localize o seu 'browser' de internet (explorer ou netscape)")
  32.     set f to FileIO(mnew, "?read", "exe")
  33.     if objectp(f) then
  34.       set aFilename to f(mFileName)
  35.       f(mdispose)
  36.     end if
  37.   end if
  38.   if not voidp(aFilename) then
  39.     if (aFilename contains "netscape.exe") or (aFilename contains "iexplore.exe") then
  40.       open(site, aFilename)
  41.     else
  42.       clearGlobals()
  43.       go("nada")
  44.     end if
  45.   else
  46.     clearGlobals()
  47.     go("nada")
  48.   end if
  49. end
  50.